home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 9 / The PC-SIG Library on CD ROM - Ninth Edition.iso / 201_300 / DISK0214 / DISK0214.ZIP / FORM.BAS < prev    next >
BASIC Source File  |  1983-03-10  |  14KB  |  489 lines
  1. 3 DEFDBL X         
  2. 4 DEFINT A-W,Y-Z
  3. 5 DIM F$(15),FLDN$(15,30),FTY(15,30),FL(15,30)
  4. 10 DIM X$(30),Y$(30)
  5. 13 DIM L(15),NREC(15),Z$(30)
  6. 14 DIM X(30),CK$(30),SN$(30),SFN(30),DTOPT(10) 
  7. 16 DIM KY(15,30),KEYLIST(15,30),L$(10,100),LEND(30),CL(30)
  8. 18 DIM SU%(40),S!(30),FORM$(30)
  9. 19 DIM EN(80),CE(80,10),TE(80,10),Q$(80,10)
  10. 20 DIM XL(40)
  11. 21 DIM TX(6,20)
  12. 25 DIM S#(30)
  13. 35 DIM K$(80)
  14. 40 DIM EFN(10,80),MAXK(30)
  15. 61 CH = 29: PRINT FRE(0)      
  16. 70 NE = 0
  17. 75 GOSUB 50000
  18. 80 GOSUB 10000
  19. 90 GOTO 30000
  20. 2300 REM **************  DISK  SELECTION  ***************
  21. 2302 IF HDISK = 2 THEN GOSUB 13000
  22. 2303 IF HDISK = 2 THEN GOTO 2360
  23. 2304 PRINT ""
  24. 2305 PRINT "************  WHICH DISK DRIVE IS THE FILE ON  **************"
  25. 2310 PRINT ""
  26. 2315 PRINT "                 1 - DISK DRIVE A"
  27. 2320 PRINT "                 2 - DISK DRIVE B"
  28. 2325 PRINT "                 3 - DISK DRIVE C"
  29. 2330 PRINT "                 4 - DISK DRIVE D"
  30. 2335 PRINT ""
  31. 2340 PRINT "***********  ENTER THE NUMBER THEN PRESS RETURN  ************"
  32. 2345 GOSUB 14000
  33. 2347 IF DT# < 0 OR DT#>4 GOTO 2345
  34. 2350 T = DT#
  35. 2355 ON T GOTO 2360,2370,2380,2390
  36. 2360 T$ = F$(A)
  37. 2365 GOTO 2490
  38. 2370 T$ = "B:"+F$(A)
  39. 2375 GOTO 2490
  40. 2380 T$ = "C:"+F$(A)
  41. 2385 GOTO 2490
  42. 2390 T$ = "D:"+F$(A)
  43. 2490 RETURN
  44. 2500 REM *******  OPEN FILE SUBROUTINE  *******
  45. 2503 CLOSE #1
  46. 2505 OPEN "R",#1,T$,L(A)
  47. 2507 D = 0
  48. 2510 FOR T = 1 TO NREC(A)
  49. 2520 FIELD #1,D AS DY$,FL(A,T) AS X$(T)
  50. 2530 D = D + FL(A,T)
  51. 2540 NEXT T
  52. 2543 GOSUB 7800
  53. 2545 RETURN
  54. 2550 REM *******   OPEN SECOND FILE  *******
  55. 2553 CLOSE #2
  56. 2555 OPEN "R",#2,T$,L(B)
  57. 2557 D = 0
  58. 2560 FOR T = 1 TO NREC(B)
  59. 2565 FIELD #2,D AS DY$,FL(B,T) AS Y$(T)
  60. 2570 D = D + FL(B,T)
  61. 2575 NEXT T
  62. 2578 RETURN
  63. 2580 REM *******   OPEN THIRD FILE  *******
  64. 2582 PRINT C,F$(C),L(C)
  65. 2584 OPEN "R",#2,F$(C),L(C)
  66. 2586 D = 0
  67. 2588 FOR T = 1 TO NREC(C)
  68. 2590 FIELD #2,D AS DY$,FL(C,T) AS Z$(T)
  69. 2592 D = D + FL(C,T)
  70. 2594 NEXT T
  71. 2596 RETURN
  72. 7800 MRN = LOF(1)/ L(A)
  73. 7805 REM MRN = INT(MRN)
  74. 7810 RETURN
  75. 7900 REM ***** LOF
  76. 7910 MRN2 = LOF(3)/82
  77. 7920 RETURN
  78. 7950 REM ******* LOF
  79. 7960 MRNS = LOF(B)/L(B)
  80. 7970 RETURN
  81. 10000 REM *************  READ SUBROUTINE  *************
  82. 10004 GOSUB 10900
  83. 10010 OPEN "I",#1,"FFILE"
  84. 10020 INPUT #1,MAXF
  85. 10030 FOR A = 1 TO MAXF
  86. 10040 INPUT #1,A,F$(A),NREC(A),L(A)
  87. 10050 FOR N = 1 TO NREC(A)
  88. 10060 INPUT #1,FLDN$(A,N),FTY(A,N),FL(A,N)
  89. 10070 IF FTY(A,N) = 2 THEN INPUT #1,KY(A,N),KEYLIST(A,N)
  90. 10080 NEXT N
  91. 10090 NEXT A
  92. 10100 CLOSE #1
  93. 10110 RETURN
  94. 10900 REM  *************  PUT DISK IN DRIVE SUB
  95. 10905 IF HDISK = 2 THEN RETURN
  96. 10910 GOSUB 13000
  97. 10920 PRINT "    ********  PUT PROGRAM DATA DISK IN THE DEFAULT DISK DRIVE  *********"
  98. 10930 PRINT ""
  99. 10940 PRINT "                     THEN PRESS ANY KEY TO CONTINUE "
  100. 10950 PRINT ""
  101. 10960 PRINT "    If the program data disk is already in the default disk drive then"
  102. 10965 PRINT "                   just press any key to continue."
  103. 10970 PRINT ""
  104. 10990 IF INKEY$ = "" GOTO 10990
  105. 10995 RETURN
  106. 11000 REM  ********  LOAD KEYLIST  *********
  107. 11010 GOSUB 13000
  108. 11100 A = 10
  109. 11105 PRINT "FILE : KEYLIST "
  110. 11110 GOSUB 2300
  111. 11120 GOSUB 2500
  112. 11130 FOR T = 1 TO 10000
  113. 11140 IF T > MRN GOTO 11900
  114. 11150 GET #1,T
  115. 11160 T1 = CVI(X$(1))
  116. 11170 T2 = CVI(X$(2))
  117. 11180 L$(T1,T2) = X$(3)
  118. 11185 IF T2 > MAXK(T1) THEN MAXK(T1) = T2
  119. 11190 NEXT T
  120. 11900 KD = 5
  121. 11935 CLOSE #1
  122. 11940 RETURN
  123. 13000 REM *********  CLEAR SCREEN
  124. 13010 CLS
  125. 13020 RETURN
  126. 13100 REM *********  LOCATE  
  127. 13110 LOCATE LI,1
  128. 13120 RETURN
  129. 13200 FOR T% = 1 TO 80
  130. 13210 PRINT CHR$(8);
  131. 13220 NEXT T%
  132. 13222 FOR T% = 1 TO 24
  133. 13223 PRINT CHR$(11);
  134. 13224 NEXT T%
  135. 13225 LI = LI - 1
  136. 13230 FOR T% = 1 TO LI
  137. 13240 PRINT CHR$(0)
  138. 13250 NEXT T%
  139. 13590 RETURN
  140. 13600 REM ****** CHECK FOR ASC0
  141. 13610 S4$ = INKEY$
  142. 13620 C2 =  ASC(S4$)
  143. 13630 IF C2 = 83 THEN C = 1
  144. 13640 IF C2 = 82 THEN C = 6
  145. 13650 IF C2 = 75 THEN C = 19
  146. 13660 IF C2 = 77 THEN C = 4 
  147. 13670 RETURN
  148. 14000 REM *******  INTEGER LESS THEN 100 CHECK  ********
  149. 14010 MAX = 2
  150. 14020 ACT$ = "1234567890=<>^"
  151. 14023 IF NE = 0 THEN ACT$ = "1234567890"
  152. 14025 PRINT ">__<";
  153. 14030 GOTO 14500
  154. 14100 REM *******  INTEGER *******                        
  155. 14110 MAX = 8
  156. 14120 ACT$ = "1234567890-+,=<>^"
  157. 14123 IF NE = 0 THEN ACT$ = "1234567890-+,"
  158. 14125 PRINT ">________<";
  159. 14130 GOTO 14500
  160. 14200 REM *******  SINGLE PRECISION  *******                        
  161. 14210 MAX = 10
  162. 14220 ACT$ = "1234567890-+,.%$=<>^"
  163. 14223 IF NE = 0 THEN ACT$ = "1234567890+-,.%$"
  164. 14225 PRINT ">__________<";
  165. 14230 GOTO 14500
  166. 14300 REM *******  DOUBLE PRECISION  *******                        
  167. 14310 MAX = 20
  168. 14320 ACT$ = "1234567890-+,.%$=<>^"
  169. 14323 IF NE = 0 THEN ACT$ = "1234567890+-,.%$"
  170. 14325 PRINT ">____________________<";
  171. 14330 GOTO 14500
  172. 14500 REM ********** NUMBER CHECK **********
  173. 14505 A$ = ""
  174. 14510 K$(20) = " "
  175. 14515 KTMAX = 0
  176. 14520 FOR T9 = 1 TO MAX
  177. 14525 K$(T9) = " "
  178. 14530 NEXT T9
  179. 14535 DIG$ = "1234567890."
  180. 14540 DOTFLG = 0
  181. 14541 T2 = MAX + 1
  182. 14542 FOR T6 = 1 TO T2
  183. 14544 PRINT CHR$(CH);
  184. 14546 NEXT T6
  185. 14550 IF INKEY$ = "" GOTO 14560 ELSE GOTO 14550
  186. 14560 KT = 0
  187. 14565 REM ***********  CHECK ALFANUMERIC INPUT FOR LENGTH  ***********
  188. 14570 KT = KT + 1
  189. 14575 REM     
  190. 14580 W$ = INKEY$
  191. 14585 IF W$ = "" GOTO 14580
  192. 14590 C = ASC(W$)
  193. 14593 IF C = 0 THEN GOSUB 13600
  194. 14595 IF C = 13 GOTO 14660
  195. 14600 IF C = 17 OR C = 8 GOTO 14860
  196. 14605 IF C = 19 GOTO 14690
  197. 14610 IF C = 4 GOTO 14710
  198. 14615 IF C = 6 GOTO 14730
  199. 14620 IF C = 1 GOTO 14790
  200. 14625 IF KT > MAX GOTO 14575
  201. 14630 IF INSTR(ACT$,W$) = 0 GOTO 14890
  202. 14635 K$(KT) = W$
  203. 14645 PRINT K$(KT);
  204. 14650 IF KT > KTMAX THEN KTMAX = KT
  205. 14655 GOTO 14570
  206. 14660 REM **********  RETURN  **********
  207. 14670 FOR T9 = 1 TO KTMAX
  208. 14675 A$ = A$ + K$(T9)
  209. 14680 NEXT T9
  210. 14681 IF KTMAX = 0 THEN PRINT "1"
  211. 14682 IF KTMAX = 0 THEN DT# = 1
  212. 14683 IF KTMAX = 0 THEN RETURN
  213. 14684 PRINT ""
  214. 14685 GOTO 14905
  215. 14690 REM ********* MOVE CURSE BACK ********
  216. 14695 IF KT = 1 GOTO 14575
  217. 14700 KT = KT - 1
  218. 14703 PRINT CHR$(CH);
  219. 14705 GOTO 14575
  220. 14710 REM ********* MOVE CURSER FORWARD *********
  221. 14715 IF KT >= MAX GOTO 14575
  222. 14716 IF KT > (KTMAX + 1) GOTO 14575
  223. 14718 PRINT K$(KT);
  224. 14720 KT = KT + 1
  225. 14725 GOTO 14575
  226. 14730 REM ********** INSERT ***********
  227. 14733 IF KT > KTMAX GOTO 14575
  228. 14735 X9 = MAX
  229. 14740 WHILE X9 > KT
  230. 14745 X9 = X9 - 1
  231. 14750 K$(X9 + 1) = K$(X9)
  232. 14755 WEND 
  233. 14760 K$(KT) = " "
  234. 14767 KTMAX = KTMAX + 1
  235. 14769 IF KTMAX > MAX THEN KTMAX = MAX
  236. 14770 FOR T9 = KT TO KTMAX
  237. 14775 PRINT K$(T9);
  238. 14780 NEXT T9
  239. 14781 T6 = (KTMAX - KT) + 1
  240. 14782 FOR T7 = 1 TO T6
  241. 14783 PRINT CHR$(CH);
  242. 14784 NEXT T7
  243. 14785 GOTO 14575
  244. 14790 REM ********** DELETE ***********
  245. 14793 IF KT > KTMAX GOTO 14575
  246. 14794 IF KTMAX = 1 GOTO 14575
  247. 14795 K$(MAX + 1) = ""
  248. 14800 X9 = KT 
  249. 14805 WHILE X9 <= MAX
  250. 14810 K$(X9) = K$(X9 + 1)
  251. 14815 X9 = X9 + 1
  252. 14820 WEND 
  253. 14830 KTMAX = KTMAX - 1
  254. 14835 FOR T9 = KT TO KTMAX
  255. 14840 PRINT K$(T9);
  256. 14845 NEXT T9
  257. 14850 PRINT "_";
  258. 14851 T7 = (KTMAX - KT) + 2
  259. 14852 FOR T8 = 1 TO T7
  260. 14853 PRINT CHR$(CH);
  261. 14854 NEXT T8
  262. 14855 GOTO 14575
  263. 14860 REM ********* BACKSPACE ********
  264. 14865 IF KT = 1 GOTO 14575
  265. 14870 KT = KT - 1
  266. 14875 PRINT CHR$(CH);
  267. 14877 K$(KT) = " " 
  268. 14880 PRINT "_";
  269. 14883 PRINT CHR$(CH);
  270. 14885 GOTO 14575
  271. 14890 REM *******  INPUT NOT ACCEPTABLE  ********
  272. 14895 PRINT CHR$(7);
  273. 14900 GOTO 14580
  274. 14905 REM ********* CLEAR STRINGS ********
  275. 14910 MAX = LEN(A$)
  276. 14915 D2$ = ""
  277. 14920 D1$ = ""
  278. 14925 DFLG = 0
  279. 14930 FOR Q93 = 1 TO MAX
  280. 14935 R$ = MID$(A$,Q93,1)
  281. 14940 IF INSTR(DIG$,R$) = 0 GOTO 14975
  282. 14945 IF R$ = "." OR DFLG = 1 GOTO 14965
  283. 14950 IF DFLG = 1 GOTO 14965
  284. 14955 D2$ = D2$ + R$
  285. 14960 GOTO 14975
  286. 14965 D1$ = D1$ + R$
  287. 14970 DFLG = 1
  288. 14975 NEXT Q93
  289. 14980 DA# = VAL(D2$)
  290. 14985 D1# = VAL(D1$)
  291. 14990 DT# = DA# + D1#
  292. 14995 IF K$(1) = "-" THEN DT# =  -DT#   
  293. 14997 RETURN
  294. 16010 PRINT "***********  MAKE SURE YOUR PRINTER IS ON  **************"
  295. 16020 PRINT ""
  296. 16030 PRINT "********************  WITH PAPER  ***********************"
  297. 16040 PRINT ""
  298. 16050 PRINT "**********  PRESS ANY KEY TO START PRINTING  ************"
  299. 16055 PRINT ""
  300. 16057 PRINT "     *******  PRESS THE LETTER A TO ABORT  *******"
  301. 16070 T$ = INKEY$
  302. 16073 IF T$ = "" GOTO 16070
  303. 16075 PRINT T$
  304. 16085 IF T$ = "A" THEN GOTO 30000
  305. 16090 RETURN
  306. 16200 REM *********  PRINT OUT FIELDS
  307. 16205 T2 = 1
  308. 16210 FOR T = 1 TO NREC(A)
  309. 16220 PRINT TAB(T2) T;"-";FLDN$(A,T);
  310. 16230 IF T MOD 3 = 0 THEN PRINT ""
  311. 16235 IF T MOD 3 = 0 THEN T2 = -25
  312. 16237 T2 = T2 + 26
  313. 16340 NEXT T
  314. 16350 RETURN
  315. 26100 EFLG = 1
  316. 26200 PRINT "**********  END OF FILE  ***********"
  317. 26202 PRINT "**** PRESS ANY KEY TO CONTINUE ****"
  318. 26204 IF INKEY$ = "" GOTO 26204
  319. 26500 REM *********  ON ERROR SUBROUTINE ***********
  320. 26600 PRINT "**********  END OF FILE  ***********"
  321. 26610 PRINT "**** PRESS ANY KEY TO CONTINUE ****"
  322. 26620 IF INKEY$ = "" GOTO 26620
  323. 26635 EFLG = 1
  324. 26640 RETURN        
  325. 26800 REM **********  ON ERROR GOTO  **************
  326. 26900 PRINT "************  RECORD NOT FOUND  *************"
  327. 30000 REM **********  FORM OUTPUT ***********
  328. 30003 CLOSE
  329. 30005 IF KD <> 5 THEN GOSUB 11000
  330. 30010 GOSUB 30300
  331. 30100 GOSUB 13000
  332. 30110 PRINT "************  PRINT A CUSTOM FORM  *************"
  333. 30120 PRINT ""
  334. 30130 PRINT "******   ENTER ZERO TO EXIT THE PROGRAM  *******"
  335. 30140 GOSUB 30380
  336. 30150 PRINT "*******  WHAT FORM DO YOU WANT TO PRINT ? ******"
  337. 30155 GOSUB 14000
  338. 30156 IF DT# <0 OR DT# >MAXFORM  GOTO 30155
  339. 30160 T = DT# 
  340. 30165 IF DT# = 0 GOTO 51000
  341. 30170 N$ = FORM$(T)
  342. 30175 CLOSE
  343. 30180 GOTO 30900
  344. 30300 REM *********  INPUT LIST OF FORMS FROM DISK  *********
  345. 30305 GOSUB 10900
  346. 30310 OPEN "I",#1,"FORMLIST"
  347. 30320 INPUT #1,MAXFORM
  348. 30330 FOR T = 1 TO MAXFORM
  349. 30340 INPUT #1,FORM$(T)
  350. 30350 NEXT T
  351. 30360 CLOSE #1
  352. 30370 RETURN
  353. 30380 REM ******* PRINT FORM LIST *******
  354. 30390 FOR T = 1 TO MAXFORM
  355. 30400 PRINT T;"-";FORM$(T)
  356. 30410 NEXT T
  357. 30420 RETURN
  358. 30900 REM *****
  359. 31000 REM ********** READ DATA ON FILE ***********
  360. 31005 OPEN "I",#1,N$
  361. 31010 INPUT #1,LN,MF,SFO
  362. 31015 IF SFO = 1 THEN INPUT #1,TMF,TSF,SF
  363. 31020 FOR T1 = 1 TO LN
  364. 31025  INPUT #1,EN(T1)
  365. 31030  FOR T2 = 1 TO EN(T1)
  366. 31035   INPUT #1,CE(T1,T2),TE(T1,T2)
  367. 31040   ON TE(T1,T2) GOTO 31045,31055,31065,31075,31075
  368. 31045    INPUT #1,Q$(T1,T2)
  369. 31050    GOTO 31075
  370. 31055    INPUT #1,EFN(T1,T2)
  371. 31060    GOTO 31075
  372. 31065    INPUT #1,EFN(T1,T2)
  373. 31070    GOTO 31075
  374. 31075  NEXT T2
  375. 31080 NEXT T1
  376. 31085 CLOSE
  377. 31160 GOSUB 13000
  378. 31161 A = MF
  379. 31162 PRINT "MAIN FILE = ";F$(A)
  380. 31164 GOSUB 2300
  381. 31166 GOSUB 2500
  382. 31170 GOSUB 13000
  383. 31171 GOTO 31300
  384. 31300 REM ****** END ON ERROR ROUTINE  ******
  385. 31310 GOSUB 13000
  386. 31320 PRINT " CUSTOM FORM    ";N$
  387. 31330 PRINT " MAIN FILE      ";F$(MF)
  388. 31350 PRINT ""
  389. 31360 PRINT "*****  WHAT RECORD DO YOU WANT TO START AT  *****"
  390. 31362 GOSUB 14100
  391. 31364 RNS = DT#
  392. 31365 A = MF
  393. 31366 GOSUB 7800
  394. 31367 IF DT# <1 OR DT# >10000 GOTO 31362
  395. 31368 PRINT "THE HIGHEST RECORD NUMBER IS ";MRN
  396. 31370 PRINT "******  WHAT RECORD DO YOU WANT TO STOP AT  ******"
  397. 31372 GOSUB 14100
  398. 31373 IF DT# <RNS OR DT# >MRN GOTO 31372
  399. 31374 RNF = DT#
  400. 31380 IF RNF > MRN GOTO 31370
  401. 31400 REM ********  START FORM LOOP  ********
  402. 31410 FOR T = RNS TO RNF 
  403. 31415 GET #1,T  
  404. 31420 GOSUB 32000
  405. 31430 IF INKEY$ = "" GOTO 31450
  406. 31440 GOSUB 31500
  407. 31450 NEXT T
  408. 31460 GOTO 30100
  409. 31500 REM  **********  PAUSE ROUTINE  ************
  410. 31510 PRINT "*************  PAUSE ROUTINE  **************"
  411. 31520 PRINT "      1 - CONTINUE PRINTING FORMS "
  412. 31530 PRINT "      2 - DONE BACK TO INITIAL MENU "
  413. 31540 PRINT "***  ENTER THE NUMBER THEN PRESS RETURN  ***"
  414. 31550 GOSUB 14000
  415. 31552 IF DT# <1 OR DT# >2  GOTO 31550
  416. 31560 IF DT# = 1 THEN RETURN 
  417. 31570 CLOSE 
  418. 31580 GOTO 30000
  419. 32000 REM  ***********  PRINT FORM  *********************
  420. 32100 FOR L = 1 TO LN
  421. 32110  GOSUB 32200
  422. 32115 LPRINT ""
  423. 32120 NEXT L
  424. 32130 RETURN 
  425. 32200 FOR E = 1 TO EN(L)
  426. 32210  GOSUB 32300
  427. 32220 Z$ = INKEY$                    
  428. 32225 IF Z$ = "" GOTO 32230
  429. 32227 GOSUB 31500
  430. 32230 NEXT E
  431. 32240 RETURN
  432. 32300 REM ********  
  433. 32310  C = CE(L,E)
  434. 32320 ON TE(L,E) GOTO 32400,32600,32800,33500,33200
  435. 32400 REM  ******  STRING CONSTANT ******
  436. 32410  LPRINT TAB(C) Q$(L,E);
  437. 32420 GOTO 33500
  438. 32600 REM  ******  GET FROM MAIN FILE  ******
  439. 32610 F = EFN(L,E) 
  440. 32620 ON FTY(MF,F) GOTO 32630,32660,32700,32750,32790
  441. 32630 REM *****  String  *****
  442. 32635 LPRINT TAB(C) X$(F);
  443. 32640 GOTO 33500
  444. 32660 REM *****  INTEGER  ******
  445. 32665 I% = CVI(X$(F))
  446. 32670 LPRINT TAB(C) I%;
  447. 32675 GOTO 33500
  448. 32700 REM ***** SINGLE PRECISION *****
  449. 32710 I! = CVS(X$(F))
  450. 32720 LPRINT TAB(C) I!;
  451. 32730 GOTO 33500
  452. 32750 REM *****  DOUBLE PRECISION  ******
  453. 32760 I# = CVD(X$(F))
  454. 32770 LPRINT TAB(C) I#;
  455. 32780 GOTO 33500
  456. 32790 REM *****  DOLLARS AND CENTS  ******
  457. 32792 I# = CVD(X$(F))
  458. 32793 LPRINT TAB(C) ;
  459. 32794 LPRINT USING "**$########,.##";I#;
  460. 32796 GOTO 33500
  461. 32800 REM  ******  GET FROM SECONDARY FILE  ******
  462. 32810 F = EFN(L,E) 
  463. 32830 I% = CVI(X$(F))
  464. 32832 T1 = KEYLIST(MF,F)
  465. 32835 W$ = L$(T1,I%)
  466. 32840 LPRINT TAB(C) W$;
  467. 33200 REM  ******  BLANK LINE ******
  468. 33500 RETURN
  469. 50000 REM **********  INTRO
  470. 50010 GOSUB 13000
  471. 50100 PRINT "           P R I N T   F O R M    P R O G R A M    3.0   "
  472. 50105 PRINT ""
  473. 50110 PRINT "       Copyright 1984 by Potomac Pacific Engineering Inc."
  474. 50120 PRINT ""
  475. 50130 PRINT "This program is licensed FREE to all users with some restrictions "
  476. 50165 PRINT "        See the manual for more information on the license."
  477. 50167 PRINT ""
  478. 50950 PRINT "******************  PRESS ANY KEY TO CONTINUE  ******************";
  479. 50960 IF INKEY$ = "" GOTO 50960
  480. 50970 RETURN
  481. 51000 REM ******** EXIT
  482. 51100 GOSUB 13000
  483. 51200 PRINT "BYE - Have a nice day "
  484. 51300 END
  485. Y$ = "" GOTO 50960
  486. 50970 RETURN
  487. 51000 REM ******** EXIT
  488. 51100 GOSUB 13000
  489. 512